home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe41 < prev    next >
Text File  |  2007-02-28  |  296b  |  9 lines
  1. 0010 INPUT QUANT
  2. 0020 INPUT PRICE
  3. 0030 PRINT "YOU HAVE ORDERED ",QUANT," LOOSE SCREWS"
  4. 0040 PRINT "TO REPLACE THE ONES YOU LOST DURING"
  5. 0050 PRINT "THE LAST ROCK FESTIVAL."
  6. 0060 PRINT 
  7. 0070 PRINT "EACH SCREW COSTS ",PRICE," PENCE,"
  8. 0080 PRINT "SO TOTAL THE AMOUNT IS ",QUANT*PRICE/100," POUNDS."
  9.